home *** CD-ROM | disk | FTP | other *** search
/ Turnbull China Bikeride / Turnbull China Bikeride - Disc 2.iso / BARNET / INTERNET / ACORNET / ACORN-ST / ACRNET21 / !AcornetA_!Run < prev    next >
Encoding:
Text File  |  1997-12-18  |  1.1 KB  |  34 lines
  1. | set directory
  2. Set Acornet$Dir <Obey$Dir>
  3. Set Acornet$Path <Acornet$Dir>.
  4.  
  5. | set sprites
  6. IconSprites <Acornet$Dir>.!Sprites
  7.  
  8. | Ensure all resources and applications booted in the right place
  9. Set AcornetBoot$Path Acornet:ChLib.,Acornet:AppLib.
  10. WimpSlot -min 64K -max 64K
  11. Run Acornet:BootApps
  12.  
  13. | IfThere Acornet:Resources then Do Repeat Filer_Boot Acornet:Resources -Applications -Tasks
  14. | IfThere Acornet:Utils     then Do Repeat Filer_Boot Acornet:Utils -Applications -Tasks
  15. | IfThere Acornet:Apps      then Do Repeat Filer_Boot Acornet:Apps -Applications -Tasks
  16.  
  17. | Aliases for the utility commands we use
  18. Set Alias$AddToPath Acornet:bin.AddToPath %*0
  19. Set Alias$Exist Acornet:bin.Exist %*0
  20.  
  21. AddToPath Run$Path Acornet:bin.
  22.  
  23. | Normally we want to start !SLIPdial
  24. Set Alias$RunAcornet Run Acornet:Utils.!SLIPdial -task FreeSLIP -file Acornet:Utils.!Slipdial.Scripts.Acornet.Acornet
  25.  
  26. | But have we been configured yet?
  27. Exist Acornet:Choices.ConnInfo
  28.  
  29. | If not, then launch the Config app straight away
  30. If "<Exist$Flag>"<>"File" Then Set Alias$RunAcornet Run Acornet:Utils.!NetConfig
  31.  
  32. | Run whichever is appropriate
  33. RunAcornet
  34.